home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
ctxt.zip
/
CTXT.LSP
< prev
Wrap
Text File
|
1991-08-27
|
655b
|
31 lines
(DEFUN *ERROR* ()
(GRTEXT)
)
(DEFUN C:CTXT (/ ELIST CNT ENT TXT E)
(SETVAR "CMDECHO" 0)(GRAPHSCR)
(SETQ ELIST (SSGET))
(IF (/= ELIST NIL)(PROGN(SETQ CNT 0
SLEN (SSLENGTH ELIST))
(WHILE (/= CNT SLEN)
(SETQ ENT (ENTGET(SSNAME ELIST CNT)))
(IF (=(CDR(ASSOC 0 ENT))"TEXT")(PROGN
(COMMAND "SELECT" (SSNAME ELIST CNT))
(SETQ TXT (CDR(ASSOC 1 ENT))
PPMT (STRCAT "\nENTER NEW TEXT <" TXT ">: ")
NTXT (GETSTRING T PPMT)
)
(COMMAND)
(IF (= NTXT "")(SETQ NTXT TXT))
(SETQ E(SUBST (CONS 1 NTXT) (ASSOC 1 ENT)ENT))
(ENTMOD E)
))
(SETQ CNT (+ CNT 1))
)))
(PRINC)
)